home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / src / stefanb_src.lha / Private_Projects / yath / beginio.a next >
Encoding:
Text File  |  1992-09-06  |  477 b   |  19 lines
  1. ; @BeginIO is still missing in amigasr.lib
  2.  
  3.          XDEF     @BeginIO
  4.  
  5. ; C Interface:  void BeginIO(struct IORequest *ior);
  6. ;                                              A0
  7.  
  8. @BeginIO:
  9.          move.l   a6,-(sp)    ; Save A6
  10.  
  11.          move.l   20(a0),a6   ; ior->io_Device in A6
  12.          move.l   a0,a1       ; ior in A1
  13.          jsr      -30(a6)     ; Call BeginIO directly
  14.  
  15.          move.l   (sp)+,a6    ; Restore A6
  16.          rts                  ; The end...
  17.  
  18.          END
  19.